COMMENT ⊗   VALID 00005 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	α	SEGMENTER -	OCT 6, 1972
 00003 00003	REQUIRE		"SEG0.REL[SYS,HE]"	LOAD_MODULE
 00004 00004	REQUIRE		"SEG1.REL[SYS,HE]"	LOAD_MODULE
 00005 00005	REQUIRE		"SEG2.REL[SYS,HE]"	LOAD_MODULE
 00006 ENDMK
⊗;
α	SEGMENTER -	OCT 6, 1972
EXTERNAL PROCEDURE DECLARATIONS AND LOAD_MODULE STATEMENTS;

REQUIRE		"SEGDPY[SYS,HE]"	LOAD_MODULE;

ESSUBR		PRINTNAME(ITEMVAR X);

REQUIRE		"SAITRG[SYS,HE]"	LOAD_MODULE;

REQUIRE		"SEG0.REL[SYS,HE]"	LOAD_MODULE;

EP	DATA_MAKER;
EP	DISKOUT;
ERP	ANGLE(SAFE REAL ARRAY ITEM P1,P2,P3;INTEGER
    DIMS);
EBP	VERT(ITEMVAR E);
ERP	DIST( SAFE REAL ARRAY ITEMVAR P1,P2);
EBP	PARALLEL(ITEMVAR L1,L2);
EBP	COLINEAR(ITEMVAR U,V);
EBP	TJOINTS(SAFE REAL ARRAY ITEMVAR X;STRING STR);
EBP	ARROWS(SAFE REAL ARRAY ITEMVAR X);
EBP	WHYS(SAFE REAL ARRAY ITEMVAR X);
EBP	ELZ(SAFE REAL ARRAY ITEMVAR X);
EBP	XZANDKZ(SAFE REAL ARRAY ITEMVAR X);
EP	INHIBIT;
EP	GOODTZ4BAD;
EP	MERGE_NODE(SET ITEMVAR Y,X);
REQUIRE		"SEG1.REL[SYS,HE]"	LOAD_MODULE;

EP	LPAIRS;
EP	DISJOINT;
EP	FIXUP1;
EP	FIXUP2;
EP	TRY0;
ESUBR	TRY1;
ESUBR	TRY2;
ESUBR	TRY4;
ESUBR	TRY5;
EP	SPLICE;

REQUIRE		"SEG2.REL[SYS,HE]"	LOAD_MODULE;

EBP	ONLINE(ITEMVAR L;SAFE REAL ARRAY ITEMVAR P);
ESP	GENSYM(INTEGER ITEMVAR NAME);
EBP	ADDLINE(ITEMVAR B);
EBP	ADDEL(ITEMVAR B);
EXTERNAL REAL ARRAY ITEMVAR PROCEDURE
	XPOINT(ITEMVAR L1;SAFE REAL ARRAY ITEMVAR P1;
		ITEMVAR L2;SAFE REAL ARRAY ITEMVAR P2);
EBP	EXTEND(ITEMVAR B);
EBP	EXT_LINE(ITEMVAR B);
EBP	EXT_FACE(ITEMVAR B);
EBP	ADDCORNER(ITEMVAR B);
EBP	ADDFACE(ITEMVAR B);
EP	CLEAN;